home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ MS Java Folders.xpl < prev    next >
Text File  |  1999-07-17  |  2KB  |  80 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="4"
  3. "COUNT"="4"
  4. "UIPATH"="System\File System\System Folders"
  5. "NAME"="MS Java VM Folders"
  6. "VERSION"="1.1""
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Trusted Classes"
  9. "TEXT 2"="Trusted Libs"
  10. "TEXT 3"="Classpath"
  11. "TEXT 4"="Libs"
  12. "WARNING"="1"
  13. "DESCRIPTION 1"="!WARNING! Take care when editing these paths! You can destroy your entire Java installation with this!"
  14. "DESCRIPTION 2"="When the VM tries to find a specified class to load it, it searches several directories. First, it looks inside its internal database (Java Package Manager Database)."
  15. "DESCRIPTION 3"="Then it looks inside every directory, that can be configured here, in the same order they are shown. If it still can't find the class, the VM finally tries to read the environment variable CLASSPATH. "
  16. "DESCRIPTION 4"="To speed up loading a class, you might consider moving it in the "Trusted Classes" directory."
  17. "DESCRIPTION 5"="!WARNING! Take care when editing these paths! You can destroy your entire Java installation with this!"
  18. "AUTHOR"="Xteq Systems"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  21.  
  22.  
  23. sPath="HKLM\SOFTWARE\Microsoft\Java VM\"
  24.  
  25. sTC="TrustedClasspath"
  26. sTL="TrustedLibsDirectory"
  27. sC="Classpath"
  28. sL="LibsDirectory"
  29.  
  30. Sub Plugin_Initialize 
  31.  if RegPathExists(sPath) then
  32.   s=RegReadValue(sPath & sTC)
  33.   SetUIElement 1,s
  34.  
  35.   s=RegReadValue(sPath & sTL)
  36.   SetUIElement 2,s
  37.  
  38.   s=RegReadValue(sPath & sC)
  39.   SetUIElement 3,s
  40.  
  41.   s=RegReadValue(sPath & sL)
  42.   SetUIElement 4,s
  43.  
  44.  else
  45.   Disable
  46.  end if
  47. End Sub
  48.  
  49.  
  50. Sub Plugin_CheckData(ElementIndex)
  51. End Sub
  52.  
  53.  
  54.  
  55. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  56.  s=GetUIElement(1)
  57.  Call RegWriteValue(sPath & sTC,s,1)
  58.  
  59.  s=GetUIElement(2)
  60.  Call RegWriteValue(sPath & sTL,s,1)
  61.  
  62.  s=GetUIElement(3)
  63.  Call RegWriteValue(sPath & sC,s,1)
  64.  
  65.  s=GetUIElement(4)
  66.  Call RegWriteValue(sPath & sL,s,1)
  67.  
  68.  
  69.  
  70.  'I don't think this is necessary. Or???
  71.  'Restart 
  72. End Sub
  73.  
  74.  
  75. Sub Plugin_Terminate 
  76. End Sub
  77.  
  78.  
  79.  
  80.